home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / src / skeleton / app_only / project.s < prev   
Text File  |  1998-08-15  |  2KB  |  59 lines
  1.     output d:\assemble\visual45\src\skeleton\app_only\project.app
  2.  
  3. OPT_GWVA_DEBUG_ERROR            ; [option][root] generates an illegal when something goes wrong (for debugging purposes)
  4. OPT_GWVA_DEBUG_PRINT_COMMENTS        ; [option][root] print comments/warnings when assembling source
  5.  
  6. *OPT_GWVA_DEBUG_SEARCH_EXEC        ; [option][root] is needed to do any log alert_box/logger
  7. *OPT_GWVA_DEBUG_SEARCH_EXEC_IN_ALERT_BOX    ; [option][root][LIB_HEXA][LIB_DECI][OPT_GWVA_DEBUG_SEARCH_EXEC] prints an alert box at each method distribution
  8. *OPT_GWVA_DEBUG_SEARCH_EXEC_IN_LOGGER    ; [option][root][LIB_HEXA][LIB_DECI][OPT_GWVA_DEBUG_SEARCH_EXEC] prints in log window each method distribution
  9. *LIB_HEXA                ; [none]
  10. *LIB_DECI                ; [none]
  11. *GWVA_DEBUG_MSG_MAX_SIZE = 256        ; [var] defines the debug message max length (generated by SEARCH_EXEC)
  12. *GWVA_DEBUG_MAX_MSG_DEBUG_PENDING = 64    ; [var] how many debug messages can be sent in a row
  13.  
  14. OPT_FULL_PATHNAMES
  15. *OPT_DEBUG
  16.  
  17.     lea objet_application,a1
  18.  
  19.     include project.def
  20.     include visual45.s
  21.     include project.hs
  22.     include project.obj
  23.  
  24.     comment HEAD=7
  25.     section TEXT
  26.  
  27. ;---------------------------------------------------------------------------
  28.     ; Exemple de programme Visual Assembleur 4.5
  29.     ; Propriété : ne marche qu'en programme (.PRG .APP .GTP)
  30. ;---------------------------------------------------------------------------
  31.  
  32. my_inits_created:
  33.     tst GWVA_ROOT_IS_ACC_PRG
  34.     beq .no_acc_run
  35.  
  36.     moveq #GWVA_PRGRET_CONSUMED,d6
  37.     rts
  38.  
  39. .no_acc_run:move #ALERT_NO_ACC_RUN,d0
  40.     move #1,d1
  41.     bsr GWVA_RSC_ALERT_BOX
  42.     bra GWVA_INFINITE_LOOP
  43.  
  44. menu_information:
  45.     lea objet_fenetre_info,a0
  46.     bsr GWVA_WIND_CREATE_OPEN_ONE_WIND
  47.     moveq #GWVA_PRGRET_CONSUMED,d6
  48.     rts
  49.  
  50. routine_menu_quit:
  51. app_term:
  52.     bra VISUAL_END
  53.  
  54. menu_open:    ; ...
  55.     moveq #GWVA_PRGRET_CONSUMED,d6
  56.     rts
  57.  
  58.  END
  59.